﻿Public Class XLTonGiao
    Private kn As New KNTonGiao
    Public Function BUS_LayDSTG() As DataTable
        Return kn.DSTG
    End Function
    Public Function BUS_SaveTG(ByVal data As DataTable) As Boolean
        Return kn.SaveTG(data)
    End Function
    Public Function BUS_ArrayTG() As ArrayList
        Dim ds As New ArrayList
        Dim d As New DTO_TonGiao
        d.TenTonGiao = "[Chọn Tôn Giáo]"
        ds.Add(d)
        Dim data As New DataTable
        data = kn.DSTG()
        For Each dr As DataRow In data.Rows
            d = New DTO_TonGiao
            d.TenTonGiao = dr("TenTG")
            ds.Add(d)
        Next
        Return ds
    End Function
End Class
